Top 10k strings from Horse Race Predictions (19xx)(D. Jackson).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
5 2 K;" ";I$(K) 2 "FOR THE ";R$(Z) 1 Z$=D$(K,J) 1 T$(Z)="N": 1 T$(Z)="H": 1 R$(K)=R$(K+1 1 Q$="VERY GOOD CHANCE" 1 Q$="MINOR GAMBLE" 1 Q$="GOOD CHANCE" 1 Q$="GAMBLE" 1 Q$="CERTAINTY" 1 PRESS A KEY 1 I$(I)=I$(I+1 1 HORSE RACE}. 1 HORSE RACE PREDICTIONS BY D.JACKSON OF 1,OSBORNE PLACE, TODMORDEN,LANCS. 1 H$(Z)=I$(1 1 H$(K)=H$(K+1 1 G(K)=G(K+1 1 FORECASTS 466 1 F$(K)="U") 1 D(Z,K)=B(K)-B(K+1 1 D(K,J)=D(K+1 1 D$(Z,K)=I$(K) 1 D$(K,J)=D$(K+1 1 Created with Ramsoft MakeTZX 1 COPY ON TO PRINTER OTHERWISE PRESS ENTER" 1 CHELTENHAM" 1 B(I)=B(I+1 1 AV=D(Z,K): 1 ;K;" ";D$(Z,K) 1 ;"YOU ENTERED FORM ~";F$;"~ "; 1 ;"WOULD YOU LIKE TO ENTER MORE PREDICTIONS ?" 1 ;"WOULD YOU LIKE THE PREDICTIONS IN ORDER TO THE PRINTER? (Y/N)" 1 ;"VEE BEE W.Wharton" 1 ;"TROJAN FEN W.Carson" 1 ;"TRANSFLASH B.Taylor" 1 ;"TOO FEW RUNNERS FOR ANY FORECAST": 1 ;"THE NO. ";K;" PREDICTION IS:-" 1 ;"STAKE 1 50 For office use only TAX - 15 ` PAY p TOTAL 1 65" 1 ;"SEE ABOVE FOR LEGAL DATA."; 1 ;"RIPON 1 ;"RATING: ";Q$ 1 ;"Press ""c"" to copy to printer. Otherwise press ENTER. " 1 ;"Press ""c"" to copy to printer otherwise press ENTER" 1 ;"PRESS A KEY " 1 ;"PLEASE RE-TYPE FORM" 1 ;"PLEASE PRESS KEY 1 ;"OMIT ANY ""/"" SIGNS." 1 ;"Now that you know what is going to win, would you like to see how to fill a betting slip out?" 1 ;"L095P0 "; 1 ;"IN THE ";R$(Z),,,,"THERE ARE TOO FEW HORSES FOR ANY KIND OF FORECAST.": 1 ;"HIGH MOOR T.Ives" 1 ;"FOR 2 TO BEAT 3:"; 1 ;"FOR ";K;" TO BEAT ";K+1 1 ;"EXAMPLE FORM INPUT:-' 1 ;"ERROR DURING FORM ENTRY."; 1 ;"ENTER RACE ";K;" " 1 ;"DO YOU REQUIRE INSTRUCTIONS ON THE USE OF THIS PROGRAM?" 1 ;"CROSBY HILL R.Fox" 1 ;"COPY TO PRINTER?" 1 ;"CALIPH L.Piggott" 1 ;"BUT YOU MAY NOT USE ~";F$(K);"~."; 1 ;"772448 "; 1 ;"256L09 "; 1 ;"2 ";D$(Z,2 1 ;"132-0LU"; 1 ;"122883 "; 1 ;"1-31U1 "; 1 ;"1-2010 "; 1 ;"1 ";D$(Z,1 1 ;" There now follows a copy of a betting slip,correctly filled out for a 50p win on each of three horses with tax paid before." 1 ;" DO YOU WISH TO SEE THAT AID AGAIN? (Y/N)" 1 ;" Press a key " 1 ;" " 1 ;" ": 1 ,,,,"50p Win MISTY HALO 4.00" 1 ,,,,"50p Win KEPAGI 5.00" 1 ,,,"RATING: ";Q$ 1 ,,"THE STRAIGHT+DUAL FORECASTS ARE:" 1 ,,"PRESS A KEY" 1 ,,"IN THE" 1 ,,"FOR 1 TO WIN:"; 1 ,,"AND THE TRI-CAST IS:" 1 ,,"AND NO TRI-CAST IS AVAILABLE": 1 ,,"50p Win EL GRAN SENOR 2.30" 1 ,,"4.00-HACKWOOD STAKES.`5000 ADDED(`4,318).7f (6) STALLS" 1 ,"RATING: ";Q$ 1 (F$(K)="F" 1 "WHERE DO YOU WANT THE PREDICTIONS PRINTING?"; 1 "USING THE 6-FIGURE FORM FROM A DAILY NEWSPAPER,READING FROM LEFT TO RIGHT. USE 1 "THIS IS A ROUGH EXAMPLE OF WHAT YOU WILL FIND IN YOUR PAPER" 1 "STAKE SELECTIONS TIME+MEETING" 1 "PRESS ~C~ 1 "PLEASE ENTER THE","NAME OF HORSE ";I 1 "PLEASE ENTER FORM FOR" 1 "IS THE ";R$(Z) 1 "IF IN DOUBT ENTER ' 1 "I ADVISE YOU TO BET ON THE FOLLOWING HORSES:-", 1 "HOW MANY RACES ?" 1 "HOW MANY HORSES FOR THE" 1 "HORSE RACE" 1 "FIRST YOU WILL BE ASKED FOR THE NUMBER OF RACES YOU WANT PREDICTIONS FOR,TYPE THIS NUMBER AND PRESS ENTER.NEXT YOU WILL BE ASKED FOR THE TIME AND THE LOCATION FOR EACH RACE,ENTER THIS AND PRESS ENTER." 1 "E.G. 1.00 1 "A HANDICAP (Y/N)" 1 " ^ ^ ^ ^ No. 6.Fig Name Jockey Form" 1 " If you wish to pay tax only on your stake then calculate 10% of the amount in the 1 " Finally add the amounts from these two boxes and write the result in the 1 " AFTER YOU HAVE DONE THIS FORALL OF THE RACES YOU WILL BE ASKED FOR THE NUMBER OF HORSES IN THE FIRST RACE AND THEN THE NAME AND CORRESPONDING FORM FOR EACH HORSE.THIS CONTINUES UNTIL ALL OF THE HORSES HAVE BEEN ENTERED.NOW THE HORSES IN EXPECTED FINISHING ORDER ARE PRINTED OUT.WHEN ALL OF THE PREDICTIONS FOR EACH RACE HAVE BEEN DONE,YOU WILL BE ADVISED ON THE SUREST WINNERS FROM THE PREDICTIONS DONE. 1 " William HILL 1 box write the amount you are gambling.(Here 3*50p=`1.50p)" 1 box blank." 1 box and write it in the 1 box (Here 15p).Otherwise leave the 1 box (Here `1.65p)." 1 FOR PLACING 1 FOR OVER THE JUMPS." 1 FOR ON THE FLAT, OR 1 FOR ON SCREEN"; 1 FOR ON PRINTER"; 1 FOR ON BOTH" 1 FOR WALK-OVER 1 FOR UNSEATED RIDER 1 FOR SLIPPED UP 1 FOR RAN OUT AND 1 FOR PULLED UP 1 FOR NEXT SEASON." 1 FOR FELL 1 FOR BROUGHT DOWN 1 " 1 1